home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
os2
/
te2pro20.zip
/
FAXWORKS.SCR
next >
Wrap
Text File
|
1996-05-31
|
748b
|
29 lines
/* test pmfax fxrcv */
signal on syntax
FxRcv = 'D:\Comm\PMfax\FxRcv'
pull FxParm
FxParm = translate(FxParm)
RxRcvParm = ''
select
when FxParm = 'ON' then FxRcvParm = '-on'
when FxParm = 'OFF' then FxRcvParm = '-off'
otherwise say 'Illegal parameter "'FxParm'", use "ON" or "OFF"'
end
if FxRcvParm \= '' then
do
say 'Execing:' FxRcv FxRcvParm
address CMD FxRcv FxRcvParm
say 'Return code:' rc
end
exit 0
syntax:
syxRC = rc
msgbox.Text = 'rc =' syxRC||D2C(10)||,
'line# =' sigl||D2C(10)||,
'line = ['sourceline(sigl)']'
msgbox.Title = 'Syntax Error!'
msgbox.Style = X2D('4046') /* MB_MOVEABLE|MB_CRITICAL|MB_CANCEL */
'messageboxv msgbox'
exit 1